home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKPascalUH2.1.sea / THINKPas Univ Hdr 2.1 / Interfaces / CMMComponent.p < prev    next >
Text File  |  1995-09-14  |  5KB  |  166 lines
  1. { Converted with MPW2TPas Tuesday, September 12, 1995 5:27:01 PM }
  2. {}
  3. {     File:        CMMComponent.p}
  4. { }
  5. {     Contains:    ColorSync CMM Components}
  6. { }
  7. {     Version:    Technology:    ColorSync 2.0}
  8. {                 Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18}
  9. { }
  10. {     Copyright:    © 1984-1995 by Apple Computer, Inc.}
  11. {                 All rights reserved.}
  12. { }
  13. {     Bugs?:        If you find a problem with this file, use the Apple Bug Reporter}
  14. {                 stack.  Include the file and version information (from above)}
  15. {                 in the problem description and send to:}
  16. {                     Internet:    apple.bugs@applelink.apple.com}
  17. {                     AppleLink:    APPLE.BUGS}
  18. { }
  19. {}
  20.  
  21. unit CMMComponent;
  22. interface
  23.  
  24.  
  25. {$IFC UNDEFINED __CMMCOMPONENT__}
  26. {$SETC __CMMCOMPONENT__ := 1}
  27.  
  28.     uses
  29.         ConditionalMacros, Types, Quickdraw, Components, Quickdraw, Dialogs, Printing, CMICCProfile, CMApplication;
  30.  
  31. { $PUSH}
  32. { $ALIGN MAC68K}
  33. { $LibExport+}
  34.  
  35.     const
  36.         CMMInterfaceVersion = 1;
  37.  
  38. { Component function selectors }
  39. { Required }
  40.         kCMMInit = 0;
  41.         kNCMMInit = 6;
  42.         kCMMMatchColors = 1;
  43.         kCMMCheckColors = 2;
  44.  
  45. { Optional }
  46.         kCMMValidateProfile = 8;
  47.         kCMMFlattenProfile = 14;
  48.         kCMMUnflattenProfile = 15;
  49.         kCMMMatchBitmap = 9;
  50.         kCMMCheckBitmap = 10;
  51.         kCMMMatchPixMap = 3;
  52.         kCMMCheckPixMap = 4;
  53.         kCMMConcatenateProfiles = 5;
  54.         kCMMConcatInit = 7;
  55.         kCMMNewLinkProfile = 16;
  56.         kCMMGetPS2ColorSpace = 11;
  57.         kCMMGetPS2ColorRenderingIntent = 12;
  58.         kCMMGetPS2ColorRendering = 13;
  59.         kCMMGetPS2ColorRenderingVMSize = 17;
  60.  
  61.  
  62.     function NCMInit (CMSession: ComponentInstance; srcProfile: CMProfileRef; dstProfile: CMProfileRef): CMError;
  63.     {$IFC NOT GENERATINGCFM}
  64.     inline
  65.         $2F3C, 8, 6, $7000, $A82A;
  66.     {$ENDC}
  67.     function CMInit (CMSession: ComponentInstance; srcProfile: CMProfileHandle; dstProfile: CMProfileHandle): CMError;
  68.     {$IFC NOT GENERATINGCFM}
  69.     inline
  70.         $2F3C, 8, 0, $7000, $A82A;
  71.     {$ENDC}
  72.     function CMMatchColors (CMSession: ComponentInstance; var myColors: CMColor; count: LONGINT): CMError;
  73.     {$IFC NOT GENERATINGCFM}
  74.     inline
  75.         $2F3C, 8, 1, $7000, $A82A;
  76.     {$ENDC}
  77.     function CMCheckColors (CMSession: ComponentInstance; var myColors: CMColor; count: LONGINT; var result: LONGINT): CMError;
  78.     {$IFC NOT GENERATINGCFM}
  79.     inline
  80.         $2F3C, 12, 2, $7000, $A82A;
  81.     {$ENDC}
  82. { Optional functions }
  83.     function CMMValidateProfile (CMSession: ComponentInstance; prof: CMProfileRef; var valid: BOOLEAN): CMError;
  84.     {$IFC NOT GENERATINGCFM}
  85.     inline
  86.         $2F3C, 8, 8, $7000, $A82A;
  87.     {$ENDC}
  88.     function CMMFlattenProfile (CMSession: ComponentInstance; prof: CMProfileRef; flags: LONGINT; proc: CMFlattenUPP; refCon: univ Ptr): CMError;
  89.     {$IFC NOT GENERATINGCFM}
  90.     inline
  91.         $2F3C, 16, 14, $7000, $A82A;
  92.     {$ENDC}
  93.     function CMMUnflattenProfile (CMSession: ComponentInstance; var resultFileSpec: FSSpec; proc: CMFlattenUPP; refCon: univ Ptr): CMError;
  94.     {$IFC NOT GENERATINGCFM}
  95.     inline
  96.         $2F3C, 12, 15, $7000, $A82A;
  97.     {$ENDC}
  98.     function CMMatchBitmap (CMSession: ComponentInstance; {CONST}
  99.                                     var bitmap: CMBitmap; progressProc: CMBitmapCallBackUPP; refCon: univ Ptr; var matchedBitmap: CMBitmap): CMError;
  100.     {$IFC NOT GENERATINGCFM}
  101.     inline
  102.         $2F3C, 16, 9, $7000, $A82A;
  103.     {$ENDC}
  104.     function CMCheckBitmap (CMSession: ComponentInstance; {CONST}
  105.                                     var bitmap: CMBitmap; progressProc: CMBitmapCallBackUPP; refCon: univ Ptr; var resultBitmap: CMBitmap): CMError;
  106.     {$IFC NOT GENERATINGCFM}
  107.     inline
  108.         $2F3C, 16, 10, $7000, $A82A;
  109.     {$ENDC}
  110.     function CMMatchPixMap (CMSession: ComponentInstance; var myPixMap: PixMap; progressProc: CMBitmapCallBackUPP; refCon: univ Ptr): CMError;
  111.     {$IFC NOT GENERATINGCFM}
  112.     inline
  113.         $2F3C, 12, 3, $7000, $A82A;
  114.     {$ENDC}
  115.     function CMCheckPixMap (CMSession: ComponentInstance; {CONST}
  116.                                     var myPixMap: PixMap; progressProc: CMBitmapCallBackUPP; var myBitMap: BitMap; refCon: univ Ptr): CMError;
  117.     {$IFC NOT GENERATINGCFM}
  118.     inline
  119.         $2F3C, 16, 4, $7000, $A82A;
  120.     {$ENDC}
  121.     function CMConcatInit (CMSession: ComponentInstance; var profileSet: CMConcatProfileSet): CMError;
  122.     {$IFC NOT GENERATINGCFM}
  123.     inline
  124.         $2F3C, 4, 7, $7000, $A82A;
  125.     {$ENDC}
  126.     function CMNewLinkProfile (CMSession: ComponentInstance; var prof: CMProfileRef; {CONST}
  127.                                     var targetLocation: CMProfileLocation; var profileSet: CMConcatProfileSet): CMError;
  128.     {$IFC NOT GENERATINGCFM}
  129.     inline
  130.         $2F3C, 12, 16, $7000, $A82A;
  131.     {$ENDC}
  132.     function CMMGetPS2ColorSpace (CMSession: ComponentInstance; srcProf: CMProfileRef; flags: LONGINT; proc: CMFlattenUPP; refCon: univ Ptr): CMError;
  133.     {$IFC NOT GENERATINGCFM}
  134.     inline
  135.         $2F3C, 16, 11, $7000, $A82A;
  136.     {$ENDC}
  137.     function CMMGetPS2ColorRenderingIntent (CMSession: ComponentInstance; srcProf: CMProfileRef; flags: LONGINT; proc: CMFlattenUPP; refCon: univ Ptr): CMError;
  138.     {$IFC NOT GENERATINGCFM}
  139.     inline
  140.         $2F3C, 16, 12, $7000, $A82A;
  141.     {$ENDC}
  142.     function CMMGetPS2ColorRendering (CMSession: ComponentInstance; srcProf: CMProfileRef; dstProf: CMProfileRef; flags: LONGINT; proc: CMFlattenUPP; refCon: univ Ptr): CMError;
  143.     {$IFC NOT GENERATINGCFM}
  144.     inline
  145.         $2F3C, 20, 13, $7000, $A82A;
  146.     {$ENDC}
  147.     function CMMGetPS2ColorRenderingVMSize (CMSession: ComponentInstance; srcProf: CMProfileRef; dstProf: CMProfileRef; var vmSize: LONGINT): CMError;
  148.     {$IFC NOT GENERATINGCFM}
  149.     inline
  150.         $2F3C, 12, 17, $7000, $A82A;
  151.     {$ENDC}
  152.     function CMConcatenateProfiles (CMSession: ComponentInstance; thru: CMProfileHandle; dst: CMProfileHandle; var newDst: CMProfileHandle): CMError;
  153.     {$IFC NOT GENERATINGCFM}
  154.     inline
  155.         $2F3C, 12, 5, $7000, $A82A;
  156.     {$ENDC}
  157.  
  158. { $ALIGN RESET}
  159. { $POP}
  160.  
  161. {$ENDC}
  162.  {__CMMCOMPONENT__}
  163.  
  164. implementation
  165. end.
  166.